
:
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long 

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
Private Const REG_SZ = 1                         ' Unicode nul terminated string 
Private Const HKEY_CURRENT_USER = &H80000001 

Private Sub Command1_Click() 
Dim res As String * 256 
Dim rex As String * 256 
RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\ShellNoRoam\MUICache", rc& 

RegEnumValue rc&, 2, res, 256, 0, REG_SZ, rex, 256 ' 2 -  (   ) 
MsgBox res '   
MsgBox rex '   
End Sub 